home *** CD-ROM | disk | FTP | other *** search
/ Aminet 25 / Aminet 25 (1998)(GTI - Schatztruhe)[!][Jun 1998].iso / Aminet / biz / demo / ArtStudioPro.lha / ArtStudioPro / Rexx / ImageToDPaint5.asrx < prev    next >
Encoding:
Text File  |  1995-05-31  |  553 b   |  33 lines
  1. /*
  2. ** ImageToDPaint5.asrx
  3. **
  4. ** $VER: ImageToDPaint5 V1.0.0 (20.05.95)
  5. **
  6. ** (c) by MotionStudios
  7. **        Wildermuthplatz 3
  8. **        28211 Bremen
  9. **        Tel.: 0421/249966
  10. **
  11. */
  12.  
  13. ADDRESS "DPAINT.1"
  14. OPTIONS RESULTS
  15.  
  16. PARSE ARG Path
  17.  
  18. /*
  19. ** Testen ob DPaint schon gestartet, wenn nicht DPaint starten.
  20. ** 5 Sekunden warten, bis DPaint geladen wurde. Falls Zeit nicht reicht
  21. ** kann man beliebig Variieren.
  22. */
  23.  
  24. IF ~SHOW('P','DPAINT.1') THEN
  25. DO
  26.  ADDRESS COMMAND 'run >NIL: <NIL: DPaint:DPaint'
  27.  ADDRESS COMMAND Wait 5
  28. END
  29.  
  30. LOCKGUI
  31. LOADPIC Path
  32. UNLOCKGUI
  33.